home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 44 / PC Actual CD 44.iso / Linux / Cygwin / full.exe / Disk1 / data1.cab / Tools / share / tix4.1 / pref / TkWin.cs < prev    next >
Encoding:
Text File  |  1998-12-04  |  2.1 KB  |  66 lines
  1. proc tixSetScheme-Color {} {
  2.     global tixOption
  3.  
  4.     set tixOption(bg)           SystemButtonFace
  5.     set tixOption(fg)           SystemButtonText
  6.  
  7.     set tixOption(dark1_bg)     SystemScrollbar
  8.     set tixOption(dark1_fg)     SystemButtonText
  9. #     set tixOption(dark2_bg)     SystemDisabledText
  10. #     set tixOption(dark2_fg)     black
  11.     set tixOption(inactive_bg)  SystemButtonFace
  12.     set tixOption(inactive_fg)  SystemButtonText
  13.  
  14.     set tixOption(light1_bg)    SystemButtonFace
  15. #     set tixOption(light1_fg)    white
  16. #     set tixOption(light2_bg)    #fcfcfc
  17. #     set tixOption(light2_fg)    white
  18.  
  19.     set tixOption(active_bg)    $tixOption(dark1_bg)
  20.     set tixOption(active_fg)    $tixOption(fg)
  21.     set tixOption(disabled_fg)  SystemDisabledText
  22.  
  23.     set tixOption(input1_bg)    SystemWindow
  24. #     set tixOption(input2_bg)    
  25. #     set tixOption(output1_bg)   $tixOption(dark1_bg)
  26. #     set tixOption(output2_bg)   $tixOption(bg)
  27.  
  28.     set tixOption(select_fg)    SystemHighlightText
  29.     set tixOption(select_bg)    SystemHighlight
  30.  
  31.     set tixOption(selector)    SystemHighlight
  32. }
  33.  
  34. proc tixSetScheme-Mono {} {
  35.     global tixOption
  36.  
  37.     set tixOption(bg)           SystemButtonFace
  38.     set tixOption(fg)           SystemButtonText
  39.  
  40.     set tixOption(dark1_bg)     SystemScrollbar
  41.     set tixOption(dark1_fg)     SystemButtonText
  42. #     set tixOption(dark2_bg)     SystemDisabledText
  43. #     set tixOption(dark2_fg)     black
  44.     set tixOption(inactive_bg)  SystemButtonFace
  45.     set tixOption(inactive_fg)  SystemButtonText
  46.  
  47.     set tixOption(light1_bg)    SystemButtonFace
  48. #     set tixOption(light1_fg)    white
  49. #     set tixOption(light2_bg)    #fcfcfc
  50. #     set tixOption(light2_fg)    white
  51.  
  52.     set tixOption(active_bg)    $tixOption(dark1_bg)
  53.     set tixOption(active_fg)    $tixOption(fg)
  54.     set tixOption(disabled_fg)  SystemDisabledText
  55.  
  56.     set tixOption(input1_bg)    white
  57. #     set tixOption(input2_bg)    
  58. #     set tixOption(output1_bg)   $tixOption(dark1_bg)
  59. #     set tixOption(output2_bg)   $tixOption(bg)
  60.  
  61.     set tixOption(select_fg)    SystemHighlightText
  62.     set tixOption(select_bg)    SystemHighlight
  63.  
  64.     set tixOption(selector)    SystemHighlight
  65. }
  66.